subroutine log_(string)
    include 'files.FI' 
	include "pspec.FI"
	character*200 string
    integer, save :: fop=.false.
#ifdef MPIF
	if (myrank .ne. 0) return
#endif
    if (fop.eq.false) then
        open(hfiter, file = "iter.txt", status='unknown')
        fop = .true.
    endif
    write(*,'(a)') trim(string)
    write(hfiter,'(a)') trim(string)
end subroutine log_

